(life-insert-random-pattern): Simplify (% (abs (random)) N)

to (random N).

diff --git a/lisp/play/life.el b/lisp/play/life.el
index 50e76e69cac55eb8bb29232e26975cc2b4ab5671..e4faecb61bde5215ff581afb632195e950913b21 100644 (file)
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -182,7 +182,7 @@ generations (this defaults to 1)."
 
 (defun life-insert-random-pattern ()
   (insert-rectangle
-   (elt life-patterns (% (abs (random)) (length life-patterns))))
+   (elt life-patterns (random (length life-patterns))))
   (insert ?\n))
 
 (defun life-increment-generation ()